home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / e / amigae30a_fr.lha / AmigaE30f / Sources / Gfx / PPV.e < prev    next >
Encoding:
Text File  |  1994-11-27  |  965 b   |  34 lines
  1. /* 256 niveau de gris de fichiers de POVRAY
  2.  
  3.    Affiche rapidement les fichiers 24-bits ded POV-ray sur une écran AGA de 256 niveau de gris
  4.    Pas d'implémentation spéciale.
  5.  
  6. */
  7.  
  8. MODULE 'tools/file'
  9.  
  10. PROC main() HANDLE
  11.   DEF scr=NIL,win=NIL,a,p,name,xs,ys,x,y
  12.   name:=IF arg[] THEN arg ELSE 'data.dis'
  13.   p:=readfile(name)
  14.   xs:=p[0]+(p[1]*256); ys:=p[2]+(p[3]*256); p:=p+4
  15.   WriteF('POV-Ray Quick 256 Greyscale PreView, $#%!\n' +
  16.          'file: "\s", (\dx\d) [mouse pour quitter]\n',name,xs,ys)
  17.   IF scr:=OpenS(xs,ys,8,$0,'')
  18.     IF win:=OpenW(0,0,xs,ys,$8,0,'',scr,15,0)
  19.       FOR a:=0 TO 255 DO SetColour(scr,a,a,a,a)
  20.       FOR y:=0 TO ys-1
  21.         p:=p+2
  22.         FOR x:=0 TO xs-1 DO Plot(x,y,p[x]+p[x+xs]+p[x+xs+xs]/3)
  23.         p:=xs*3+p
  24.       ENDFOR
  25.       WaitIMessage(win)
  26.     ENDIF
  27.   ENDIF
  28. EXCEPT DO
  29.   CloseW(win)
  30.   CloseS(scr)
  31.   IF exception THEN WriteF('exception: "\s", info: "\s"\n',
  32.     [exception,0],IF exceptioninfo THEN exceptioninfo ELSE '')
  33. ENDPROC
  34.